Sun Solutions 1997 April to September/Sun Solutions CD - APR '97 - SEP '97 (704-3778-12 Rev. H)(Sun Microsystems, Inc.)(1997).iso/products/bin/httpd/Solaris_2/variables.pl

Perl Script | 1996-09-10 | 179b | 10 lines

#!./perl

@tmp = split(/_/,$ENV{SERVER_NAME});
@tmp[0] =~ s/-/ /g;
$disc_real = @tmp[0];
$disc_name = $disc_real;
$disc_name =~ s/ //g;
@tmp[1] =~ s/-/ /g;
$disc_rest = @tmp[1];